home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / m2c / IODrv.c < prev    next >
C/C++ Source or Header  |  1992-08-18  |  2KB  |  70 lines
  1. #include "SYSTEM_.h"
  2.  
  3. #ifndef DEFINITION_IO
  4. #include "IO.h"
  5. #endif
  6.  
  7. static IO_tFile f, g;
  8. static INTEGER i, j;
  9. static CHAR c;
  10. static struct S_1 {
  11.     CHAR A[200 - 1 + 1];
  12. } b;
  13. static REAL r;
  14.  
  15.  
  16. void BEGIN_MODULE()
  17. {
  18.   BEGIN_IO();
  19.  
  20.   f = IO_ReadOpen((STRING)"Makefile", 8L);
  21.   g = IO_WriteOpen((STRING)"t", 1L);
  22.   for (i = 1; i <= 200; i += 1) {
  23.     c = IO_ReadC(f);
  24.     IO_WriteC((System_tFile)IO_StdOutput, c);
  25.     IO_WriteC(g, c);
  26.   }
  27.   while (!IO_EndOfFile(f)) {
  28.     i = IO_Read(f, ADR(b), 200L);
  29.     j = IO_Write((System_tFile)IO_StdOutput, ADR(b), i);
  30.     j = IO_Write(g, ADR(b), i);
  31.   }
  32.   IO_ReadClose(f);
  33.   IO_WriteClose(g);
  34.   IO_WriteNl((System_tFile)IO_StdOutput);
  35.   IO_WriteS((System_tFile)IO_StdOutput, (STRING)"enter integers, 99 will stop", 28L);
  36.   IO_WriteNl((System_tFile)IO_StdOutput);
  37.   do {
  38.     IO_WriteFlush((System_tFile)IO_StdOutput);
  39.     i = IO_ReadI((System_tFile)IO_StdInput);
  40.     IO_WriteI((System_tFile)IO_StdOutput, i, 10L);
  41.     IO_WriteShort((System_tFile)IO_StdOutput, (SHORTINT)i, 10L);
  42.     IO_WriteLong((System_tFile)IO_StdOutput, i, 10L);
  43.     IO_WriteCard((System_tFile)IO_StdOutput, (LONGCARD)i, 10L);
  44.     c = IO_ReadC((System_tFile)IO_StdInput);
  45.     IO_WriteC((System_tFile)IO_StdOutput, ' ');
  46.     IO_WriteC((System_tFile)IO_StdOutput, c);
  47.     IO_WriteNl((System_tFile)IO_StdOutput);
  48.   } while (!(i == 99));
  49.   IO_WriteS((System_tFile)IO_StdOutput, (STRING)"enter reals, 99 will stop", 25L);
  50.   IO_WriteNl((System_tFile)IO_StdOutput);
  51.   do {
  52.     IO_WriteFlush((System_tFile)IO_StdOutput);
  53.     r = IO_ReadR((System_tFile)IO_StdInput);
  54.     IO_WriteR((System_tFile)IO_StdOutput, r, 2L, 12L, 3L);
  55.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  56.     IO_WriteR((System_tFile)IO_StdOutput, r, 2L, 3L, 2L);
  57.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  58.     IO_WriteR((System_tFile)IO_StdOutput, r, 4L, 3L, 1L);
  59.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  60.     IO_WriteR((System_tFile)IO_StdOutput, r, 8L, 3L, 0L);
  61.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  62.     IO_WriteR((System_tFile)IO_StdOutput, r, 8L, 1L, 0L);
  63.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  64.     IO_WriteR((System_tFile)IO_StdOutput, r, 8L, 0L, 0L);
  65.     IO_WriteC((System_tFile)IO_StdOutput, ',');
  66.     IO_WriteNl((System_tFile)IO_StdOutput);
  67.   } while (!(98.9 <= r && r <= 99.1));
  68.   IO_WriteClose((System_tFile)IO_StdOutput);
  69. }
  70.